perm filename BTRPT[MUS,LCS] blob
sn#030343 filedate 1974-01-08 generic text, type T, neo UTF8
16900 ARRAY F10,F11,F12(512);BIGBIT←1;P8←F5;SYNTH(F5);1 1 2 1 999;
17000 SYNTH(F3);1 1 999;
17100 COMPILE;INSTRUMENT TRPT; OSCIL(P4,MAG/P2,P5);
17200 INTRP(P6*P3*MAG,P7*P3*MAG,P5); COSCIL(U2,P3*MAG,F3);
17300 COSCIL(U1,P3*MAG+U3,F3); OUTA←OUTA+U4;END;
17400 FINISH;SYNTH(F2);99 .5 1 0 0
17500 .25,1,180,101.5
17600 .25,1,180,101.5
17700 .25,1,180,101.5
17800 .25,1,180,101.5
17900 .25,1,180,101.5
18000 .25,1,180,101.5,999
18200 SEG(F10);0 0 1 20 1 90 .5 100;SEG(F11);.5 0 1 10 1 90 .5 100;
18300 SEG(F12);.5 0 1 10 1 92 0 100;